home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / print / 24hershy.zip / HRGR_R.GSF < prev    next >
Text File  |  1991-05-16  |  13KB  |  215 lines
  1. %!
  2. % Common definitions for the Hershey fonts.
  3.  
  4. /MakeHersheyFont where
  5.  { pop 80 string
  6.     { currentfile 1 index readline pop
  7.        (%END) eq { exit } if
  8.     } loop pop
  9.  } if
  10.  
  11. userdict begin
  12. /HersheyBuildDict 10 dict def
  13.  
  14. /BuildHersheyChar {
  15.     exch begin
  16.         PenWidth setlinewidth
  17.         Encoding exch get
  18.         dup CharData exch known not { pop /.notdef } if
  19.         CharData exch get
  20.     end
  21.     /cd exch def
  22.  
  23.     /llx 99 def /lly 99 def /urx -99 def /ury -99 def
  24.     true
  25.  
  26.     cd 2 get {
  27.         exch {
  28.             dup 32 eq {
  29.                 pop true
  30.             } {
  31.                 82 sub cd 0 get sub
  32.  
  33.                 dup llx lt {
  34.                     dup /llx exch def
  35.                 } if
  36.                 dup urx gt {
  37.                     dup /urx exch def
  38.                 } if
  39.                 pop false
  40.             } ifelse
  41.         } {
  42.             neg 91 add
  43.  
  44.             dup lly lt {
  45.                 dup /lly exch def
  46.             } if
  47.             dup ury gt {
  48.                 dup /ury exch def
  49.             } if
  50.             pop true
  51.         } ifelse
  52.     } forall pop
  53.  
  54.     cd 1 get cd 0 get sub 0 llx 1 sub lly 1 sub urx 1 add ury 1 add
  55.     setcachedevice
  56.  
  57.     /domove true def
  58.     true
  59.  
  60.     cd 2 get {
  61.         exch {
  62.             dup 32 eq {
  63.                 pop true
  64.                 /domove true def
  65.             } {
  66.                 82 sub cd 0 get sub
  67.                 false
  68.             } ifelse
  69.         } {
  70.             neg 91 add
  71.             domove {
  72.                 moveto
  73.                 /domove false def
  74.             } {
  75.                 lineto
  76.             } ifelse
  77.             true
  78.         } ifelse
  79.     } forall pop
  80.  
  81.     1 setmiterlimit 1 setlinejoin 1 setlinecap
  82.     stroke
  83. } bind def
  84.  
  85. /MakeHersheyFont {
  86.     10 dict dup begin
  87.     exch /ItalicAngle exch def
  88.     exch /PenWidth exch def
  89.     exch /FontName exch def
  90.     exch /CharData exch def
  91.  
  92.     /FontType 3 def
  93.     /FontMatrix 
  94.         [1 33 div
  95.         0
  96.         ItalicAngle neg dup sin exch cos div 33 div
  97.         1 33 div
  98.         0 0] def
  99.     /Encoding StandardEncoding def
  100.     /BuildChar {HersheyBuildDict begin BuildHersheyChar end} def
  101.     /FontBBox [-10 -10 30 30] def
  102.  
  103.     FontName end exch definefont
  104. } bind def
  105. end        % userdict
  106. %END
  107.  
  108. 150 dict dup begin
  109. /hyphen [-6 6 (NRVR)] def
  110. /bar [-4 4 (RBRb)] def
  111. /periodcentered [-5 5 (RQQRRSSRRQ)] def
  112. /numbersign [-10 11 (SBLb YBRb LOZO KUYU)] def
  113. /currency [-11 11 (IIJKKOKUJYI[ [IZKYOYUZY[[ IIKJOKUKYJ[I I[KZOYUYYZ[[)] def
  114. /bullet [-2 2 (QPPQPSQTSTTSTQSPQP RQQRRSSRRQ)] def
  115. /slash [-7 7 (K^YF)] def
  116. /backslash [-7 7 (KFY^)] def
  117. /tilde [-8 8 (LTLRMPOPUSWSXR LRMQOQUTWTXRXP)] def
  118. /bracketleft [-7 7 (OBOb PBPb OBVB ObVb)] def
  119. /bracketright [-7 7 (TBTb UBUb NBUB NbUb)] def
  120. /braceleft [-7 7 (TBRCQDPFPHQJRKSMSOQQ RCQEQGRISJTLTNSPORSTTVTXSZR[Q]Q_Ra QSSUSWRYQZP\\P^Q`RaTb)] def
  121. /braceright [-7 7 (PBRCSDTFTHSJRKQMQOSQ RCSESGRIQJPLPNQPURQTPVPXQZR[S]S_Ra SSQUQWRYSZT\\T^S`RaPb)] def
  122. /less [-12 12 (ZIJRZ[)] def
  123. /greater [-12 12 (JIZRJ[)] def
  124. /asciitilde [-12 12 (IUISJPLONOPPTSVTXTZS[Q ISJQLPNPPQTTVUXUZT[Q[O)] def
  125. /asciicircum [-11 11 (JTROZT JTRPZT)] def
  126. /percent [-12 12 ([FI[ NFPHPJOLMMKMIKIIJGLFNFPGSHVHYG[F WTUUTWTYV[X[ZZ[X[VYTWT)] def
  127. /at [-13 14 (WNVLTKQKOLNMMPMSNUPVSVUUVS QKOMNPNSOUPV WKVSVUXVZV\\T]Q]O\\L[JYHWGTFQFNGLHJJILHOHRIUJWLYNZQ[T[WZYYZX XKWSWUXV)] def
  128. /section [-8 8 (UITJUKVJVIUGSFQFOGNINKOMQOVR OMTPVRWTWVVXTZ PNNPMRMTNVPXU[ NVSYU[V]V_UaSbQbOaN_N^O]P^O_)] def
  129. /dagger [-8 8 (RFQHRJSHRF RFRb RQQTRbSTRQ LMNNPMNLLM LMXM TMVNXMVLTM)] def
  130. /daggerdbl [-8 8 (RFQHRJSHRF RFRT RPQRSVRXQVSRRP RTRb R^Q`RbS`R^ LMNNPMNLLM LMXM TMVNXMVLTM L[N\\P[NZL[ L[X[ T[V\\X[VZT[)] def
  131. /A [-12 12 (IHJIIJHIIGKFMFOGPHQKQOPRNTLUIV OHPKPPOR MFNGOJOPNSLU LVOY KVOZ IVN[UV \\G[H\\H\\G[FYFWGVHUJUYW[[W WHVJVXXZ YFXGWJWWYY)] def
  132. /B [-13 13 (GQGRHSJSLRLOKMIJIHKF KOIK JSKRKPIMHKHIIGKFNFPGQHRJRRQUOW PHQJQT NFOGPJPUOW RISGUFWFYGZH[J\\K YHZJ WFXGYJZK\\K \\KRP YM[O\\R\\U[XYZV[S[PZJWIWHX XNYN[P VNYO[Q\\S TZRZLWKW ZYXZUZRYNWKVIVHXHZI[JZIY)] def
  133. /C [-12 12 (RHPFNFLGJJINIRJVLYNZQ[T[WZYY[W LHKJJMJRKVMYPZ NFMGLIKMKQLUMWOYRZUZXY[W UFRHQIPKPLQNTPURUT QKQLUPUQ QIQJRLUNVPVRUTSURUPTOR UFVGXHZH UGVHWH TGVIXIZH[G)] def
  134. /D [-13 13 (HLHKIIKGNFRFUGWHYJ[M\\Q\\U[XYZV[S[PZJWIWHX KHMGRGUHWIYK[N TZRZLWKW HKJIMHRHUIWJYL[O\\R ZYXZUZRYNWKVIVHXHZI[JZIY PHMKLMLONSNU MNMONQNR MKMMOQOSNUMVKVJUJT)] def
  135. /E [-12 12 (RHPFNFLGJJINIRJVLYNZQ[T[WZYY[W LHKJJMJRKVMYPZ NFMGLIKMKQLUMWOYRZUZXY[W UFRHQIPKPLQNTPURUT QKQLUPUQ QIQJRLUNVPVRUTSURUPTOR UFVGXHZH UGVHWH TGVIXIZH[G UNYK YKZL\\L XLYMZM WMXNZN\\L)] def
  136. /F [-12 12 (MNKMJKJIKGNFQFTGXI KHMGRGUH JKKIMHRHXIZI[H[GZFYF SHRIQKQMROVSWVWYV\\U]S^ TPWSXVXYW[ QMSOVQXSYVYYX[V]S^O^L]K\\JZJWLTLRKQ L\\K[KWLU O^M]L[LWMTMRLQJQIRIS UPYL YLZM\\M XMYNZN WNXOZO\\M)] def
  137. /G [-13 13 (UJTHSGQFNFKGIJHNHRIUJWLYNZQ[T[WZYY[W\\T\\Q[NYL KHJJIMIRJUKW ZW[U[QZNYM NFLGKIJMJRKVLXNZ WZYXZUZQYOWM UFRHPJOLOMPOSQTSTU PLPMTQTR PJPKQMTOUQUSTURVQVOUNS TOYLZJ \\FZJ YG]I \\F[GYGZHZJ[I]I\\H\\F)] def
  138. /H [-12 13 (RFPGNIMKMMNOPQQSQU NLNMQQQR NINKOMQORQRSQUPVNWLWJVIUHSHQIPJQIR RFTHVHXG QGSH PGQHSIUIXG RPYK YK[N\\Q\\T[WYYVZR[ XLZN[Q[UZW VMWMYOZRZVYXXYVZ VZTZRYPYNZM\\N^P_R_T^ SZQZ R[PZNZ)] def
  139. /I [-12 13 (PPNPLOKNJLJJKHLGOFQFTGWJYK LHNGRGTHUI JJKIMHQHTIVJYK[K\\J\\H[GYG JXKYJZIYIWJVLVNWPYR\\T^ NXOYQ\\R] LVMWNYP\\Q]S^V^X]Y\\ZZZWYUWRVPVO YXYWVRVQ X]Y[YYXWVTURUPWNYNZOZP)] def
  140. /J [-12 13 (PPNPLOKNJLJJKHLGOFQFTGWJYK LHNGRGTHUI JJKIMHQHTIVJYK[K\\J\\H[GYG JXKYJZIYIWJVLVNWPYR\\T^ NXOYQ\\R] LVMWNYP\\Q]S^V^X]Y\\ZZZWYUWRVPVO YXYWVRVQ X]Y[YYXWVTURUPWNYNZOZP)] def
  141. /K [-13 13 ([KZIXGUFRFOGMILKLNMQPWPYN[ MNMOPUPV NHMJMMNOPSQVQXPZN[L[JZ HVJZ GYKW HVHXGYIYJZJXKWIWHV NONMOKQJTJVKXMYM UKWM RJTKULVN YMPQ UOYXZY[Y TPXXZZ SPWYY[\\X)] def
  142. /L [-11 12 (ZSYTVTUSUQVOXLYJYH VQVPYLYK WTVSVRWPYNZLZJYHXGUFPFMGLHKJKLLNNQOSOTNV LKLLOQOR LHLJMLOOPQPSOUMWJY MWOWRYUZXZZY NXOXSZTZ JYLXMXQZT[V[YZZY[W)] def
  143. /M [-16 16 (EQERFSHSJRJOIMGJGHIF IOGK HSIRIPGMFKFIGGIFKFMGOIPLPROUNWLYI[HZGZ NIOLORNUMW JZIYHY KFMHNKNRMVLXKYJXIXF[ NGPFRFTGVIWLWRVUUWSYQ[PZOZ UIVLVRUV RZQYPY RFTHUKUSTWSYRXQXN[ UHVGXFZF\\G]H^J_K \\H]J ZF[G\\J]K_K _K\\M[NZQZT[X][`X \\N[P[T\\W^Z _K]M\\O\\S]W_Y)] def
  144. /N [-14 14 (GQGRHSJSLRLOKMIJIHKF KOIK JSKRKPIMHKHIIGKFNFPGRISLSRRUQWOYL[KZIZG[ QIRKRRQUPWOX MZKYIY NFPHQKQRPVNYLXJXG[ RHSGUFWFYGZH[J\\K YHZJ WFXGYJZK\\K \\KYMXNWQWTXXZ[]X YNXPXTYW[Z \\KZMYOYSZW\\Y)] def
  145. /O [-14 14 (PFNGLIKKKMMQMS LLLMMOMP LILKNONQMSLTJTISIR PFQGWIZK[M\\P\\S[VZXXZU[R[OZIWHWGX PGQHWJYKZL PFPHQIWKYL[N\\P SZQZKWJW YYWZTZQYMWJVHVGXGZH[IZHY)] def
  146. /P [-13 14 (HQHRISKSMRMOLMJJJHLF LOJK KSLRLPJMIKIIJGLFOFQGRHSJSU SWS\\R^P_M_L^L\\M[N\\M] QHRJR\\Q^ OFPGQJQU QWQ\\P^O_ SJXF XFZI[K\\O\\R[UYXV[ WGZK[N[O VHXJZM[P[SZVYX WYUVSU QUOVMX WZUWSVPV V[TXSW QWOWMX)] def
  147. /Q [-14 14 (PFNGLIKKKMMQMS LLLMMOMP LILKNONQMSLTJTISIR PFQGWIZK[M\\P\\S[VZX XZU[R[OZIWHWGX PGQHWJYKZL PFPHQIWKYL[N\\P SZQZKWJW XZTZQYMWJVHVGXGZH[IZHY TXVVXV\\Z]Z WWXW[Z UWVWZ[\\[^Y)] def
  148. /R [-14 14 (GQGRHSJSLRLOKMIJIHKF KOIK JSKRKPIMHKHIIGKFNFPGQHRJRVQXOZM[K[IZ PHQJQVPX NFOGPJPVOYM[ GVIZ FYJW GVGXFYHYIZIXJWHWGV RISGUFWFYGZH[J\\K YHZJ WFXGYJZK\\K \\KRP TOXYZ[]X UOYX[Z VNZX[Y\\Y)] def
  149. /S [-13 14 (\\H[G\\F]G]I\\KZKVISHOHKIIK YJVHSGOGLH ]I\\JZJVGSFOFLGJIIKHNHRIUJWLYNZQ[U[XZZY\\W]T]Q\\OZNWNUOSRQSOS LXNYQZUZYY IUKWMXPYUYYX[W\\V]T XOWOSSRS ]Q[OYOWPUSSTQTOSNQNOOMQL)] def
  150. /T [-12 13 (LNJMIKIIJGMFRFUGYJ[J\\I JHLGRGUHXJ IKJILHRHUIYK[K\\I\\G[FZG[H UIRLQNQPSTSV RORPSRSS RLRNTRTTSVRWPWOVOT JYKZJ[IZIXJVLVOWSYVZYZ[Y LWMWSZUZ IXJWKWMXQZT[W[ZZ\\X)] def
  151. /U [-11 11 (JHKHLILWJX KGMHMXPZ IILFNHNWPYRY JXKXMYO[RYVV THUHVIVYX[[X UGWHWYYZ SIVFYHXIXXYYZY)] def
  152. /V [-14 14 (GQGRHSJSLRLOKMIJIHKF KOIK JSKRKPIMHKHIIGKFNFPGQHRJRRQUOW PHQJQT NFOGPJPUOW RISGUFWFYG[J\\K YHZJ WFXGYJZK\\K ZKXKWLWNXP[R\\T XO[Q WMXN[P\\R\\V[XYZW[S[PZJWIWHX TZRZLWKW ZYXZUZRYNWKVIVHXHZI[JZIY)] def
  153. /W [-16 17 (EQERFSHSJRJOIMGJGHIF IOGK HSIRIPGMFKFIGGIFLFNGOHPJPNOQMTKV NHOJOONR LFMGNJNOMSKV NGPFSFUG WFTGSISMTPVSWUWWVY TMTNWSWT WFUGTITLUNWQXTXVWXUZS[O[MZKXIWGWFX NZKWJW Q[OZLWJVGVFXFZG[HZGY WFZF\\G^J_K \\H]J ZF[G\\J]K_K ]K[KZLZN[P^R_T [O^Q ZM[N^P_R_W^Y]Z[[X[UZ YZXZVY ^Y\\ZZZXYWX)] def
  154. /X [-12 12 (KHMHOIPJQMQO QQQUPXM[KZI[ NZLYKY OYNYLXI[ MGPHQIRLRUSWUYWZ IINFPGRISLSO SQSTTWUXWYYY QURXTZV[[X SLTIWFYG[F VGXHYH UHVHXI[F KSMOQO SOWOYM MPWP KSMQQQ SQWQYM)] def
  155. /Y [-13 13 (HQHRISKSMRMOLMJJJHLF LOJK KSLRLPJMIKIIJGLFOFQGRHSJSORRQTQUSWTW QHRJRPQSPUSX OFPGQJQPPTOVRYUV SJ[F YGYZX] ZGZXY[ [F[VZZY\\W^T_P_M^K\\JZKYLZK[)] def
  156. /Z [-12 12 (NIOGQFTFVGWHXJXMWOVPTQ QQOPNN VHWIWNVO TFUGVIVNUPTQ MUNSORQQTQWRYTZVZZY\\W^T_P_N^KZJY XTYVYZX\\ TQWSXUX[W]V^T_ O^N]LZKY R_P^O]MZLYIYHZH\\I]J])] def
  157. /a [-8 9 (TMQNOONPMSMVNYO[UX NVOYPZ QNOPNSNUOXQZ RNSOUPUYW[ZX SNVPVXXZ TMUNWOXO WPXO WPWXXYYY)] def
  158. /b [-8 9 (LHMINK TFQGOINKNXMY P